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I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 
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—POSTA - 

Un tuffo 
nell’olio 

Il 16/4/85 ho acquistato 
presso un rivenditore di 
giornali la vostra Softri- 
vista per il Commodore 
64 “Jackson Soft” che 
trattava il video games 
QUO VADIS. 

Dopo aver letto i consigli 
e averlo caricato ho ini¬ 
ziato a giocare ma senza 
successo poiché al mo¬ 
mento in cui dovevo 
sganciarmi dall’asta ca¬ 
devo sempre nella fossa 
dell’olio. 

A mio avviso i vostri con¬ 
sigli in quel punto non 
sono molto chiari quindi 
Vi pregherei di fornirmi 
una descrizione più det¬ 
tagliata al fine di poter 
usare il Vostro video ga¬ 
mes. 

Marco Silvestri, Pisa 

Sul numero 1 di Jackson 
Soft Oro e nei consigli per 
QUO VADIS abbiamo sot¬ 
tolineato quanto sia im¬ 
portante imparare ad ab¬ 
bandonare l’asta. Anche 
per noi non è stato sem¬ 
plice scoprire la tecnica 
visto che nelle istruzioni 
originali inglesi non ci 
sono alcuni consigli. Do¬ 
po decine di tragici tuffi 
nell’olio bollente abbia¬ 
mo scoperto la tecnica 
che ti rispieghiamo. 

Non bisogna fare l’errore 
di spostare il joystick la¬ 
teralmente ma, al mo¬ 
mento di abbandonare 
l’asta bisogna muovere il 


joystick in diagonale in 
alto e verso la direzione 
scelta o a destra, o a sini¬ 
stra. Lo sappiamo, non è 
semplice, ma Quo Vadis è 
un gioco molto impegna¬ 
tivo che vi può dare mol¬ 
te soddisfazioni. 


Istruzioni 

misteriose 

Sono da poco tempo pos¬ 
sessore di uno Spectrum 
e nel manuale ho trovato 
una spiegazione piutto¬ 
sto confusa delle istru¬ 
zioni Poke, Peek e Data 
che, anche guardando i li¬ 
stati che voi pubblicate, 
mi sembrano invece piut¬ 
tosto importanti. Potete 
darmi una spiegazione? 

Arturo Briganti, 
Reggio C. 

Francamente, il manuale 
di istruzioni che accom¬ 
pagna il computer non ci 
sembra così oscuro come 
dici, tuttavia cercheremo 
nell’ambito dello spazio a 
disposizione, di aiutarti. 
Dunque, l’istruzione Po¬ 
ke viene usata per intro¬ 
durre o modificare valori 
numerici presenti nelle 
singole locazioni di me¬ 
moria. 

Il comando Peek serve in¬ 
vece per leggere il valore 
di una locazione, mentre 
l’istruzione Data serve 
per inserire in un pro¬ 


gramma liste di numeri o 
stringhe alfanumeriche 
che verranno in seguito 
lette dal computer grazie 
al comando Read. 

Ci rendiamo conto che le 
informazioni che ti for¬ 
niamo sono piuttosto li¬ 
mitate, ma non possiamo 
mica metterci a riscrive¬ 
re tutto il manuale! 


Computer e 
TV 

I miei genitori sostengo¬ 
no che il computer rovi¬ 
na il televisore a colori e 
non me lo lasciano usare 
relegandomi ad un vec¬ 
chio televisore in bianco 
e nero. Io sostengo che 
non è vero, chi ha ragio¬ 
ne? 

Michele Zozza, Bari 

Rassicura i tuoi genitori: 
il computer non rovina il 
televisore. 

Né quello in bianco e nero 
né quello a colori e quindi 
tu puoi utilizzare l’uno o 
l’altro con tranquillità. 
Piuttosto crediamo che 
l’opinione dei tuoi geni¬ 
tori sia da legare al fatto 
che probabilmente prefe¬ 
riscono vedersi Pippo 
Baudo in santa pace che 
essere tormentati dagli 
spari delle astronavi alie¬ 
ne. Rassegnati al bianco e 
nero. 
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Le tabelline 

delle 

potenze 

Vorrei che mi aiutaste a 
risolvere un problema: 
impaginare delle tabelli¬ 


ne. Ho provato in tutti i 
modi, ma i sistemi che ho 
utilizzato sono molto 
lunghi e faticosi. Sapete 
suggerirmi un sistema 


più rapido? 

Luigi Chiodi, Milano 

Il sistema migliore per ri¬ 
solvere il piccolo proble¬ 
ma che ci poni, è quello di 
fare in modo che la tabel- 
lina si impagini da se, im¬ 


piegando i suoi stessi ele¬ 
menti di calcolo per indi¬ 
viduare la posizione di 
stampa di ogni dato. Per 
farti un esempio pubbli- 


- POSTA- 

chiamo un semplice pro¬ 
gramma in grado di impa¬ 
ginare automaticamente 
le tabelline delle potenze. 
I dati sono soltanto due: 
b ed e, base ed esponente 
e sono compresi rispetti¬ 
vamente tra 1 e 18 e tra 1 
e 5. 

Gli stessi h ed e vengono 
utilizzati nella linea 20 
come parametri per indi¬ 
viduare le coordinate alle 
quali devono essere stam¬ 
pati i risultati. 

Per la interpretazione 
della stessa linea 20 biso¬ 
gna ricordarsi che AT è 
l’istruzione che chiama 
le coordinate ed è seguita 
da y (coordinata linea) e 
da x (coordinata colon¬ 
na). 



1 PRINT “tabellina delle potenze” 

5 FOR e=l TO 5 
10 FOR b=l TO 10 

20 PRINT AT 2, (e-1) *6;e;AT b+4, (e-1) *6;bte 
30 NEXT b 
40 NEXT e 



tabellina delle potenze 


tl 

t2 

t3 

t4 

t5 

1 

1 

1 

1 

1 

2 

4 

8 

16 

32 

3 

9 

27 

81 

243 

4 

16 

64 

256 

1024 

5 

25 

125 

625 

3125 

6 

36 

216 

1296 

7776 

7 

49 

343 

2401 

16807 

8 

64 

512 

4096 

32768 

9 

81 

729 

6561 

59049 

10 

100 

1000 

10000 

100000 

11 

121 

1331 

14641 

161051 

12 

144 

1728 

20735 

248832 

13 

169 

2197 

28561 

371293 

14 

196 

2744 

38416 

537824 

15 

225 

3375 

50625 

759375 

16 

256 

4096 

65535 

1048576 

17 

289 

4913 

83521 

1419857 

18 

324 

5832 

104976 

1889566 
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— NOTIZIE - 

UN DRIVE DA 
3,5 POLLICI 
PER LO 
SPECTRUM 

Dalla Gran Bretagna arri¬ 
va la salvezza per chi, 
stufo dei nastri del regi¬ 
stratore o di quelli del 
microdrive, desidera fi¬ 
nalmente poter memoriz¬ 
zare i propri programmi 
su disco. 

La Opus ha realizzato un 
vero e proprio sistema de¬ 
nominato Discovery I per 

10 Spectrum e che com¬ 
prende una unità a disco 
da 3,5 pollici, un connet¬ 
tore diretto per le perife¬ 
riche, una porta per la 
stampante parallela, 
un’interfaccia per il joy¬ 
stick, un’uscita per il mo¬ 
nitor video e un alimen¬ 
tatore incorporato. 

11 tutto raccolto in un 
blocco unico dalla linea 
moderna e filante. Il Di¬ 
scovery si collega nella 
porta posteriore dello 
Spectrum o dello Spec¬ 
trum. 

Il cuore del sistema è 
l’unità di memoria a di¬ 
sco dotata di avanzamen¬ 
to diretto con tempi di ac¬ 
cesso rapidi. 

Dischi da 3” 1/2 

Vengono utilizzati i di¬ 
schi da 3 pollici e mezzo 
con 40 tracce e densità 
doppia. 

È possibile abbinare al Di¬ 
scovery I un secondo dri¬ 
ve grazie al Discovery +, 


mentre è disponibile an¬ 
che il Discovery II dotato 
di doppio disco. 

Tutti i programmi realiz¬ 
zati per il microdrive so¬ 
no compatibili con l’uni¬ 
tà a dischi la quale non 
occupa nessuna parte 
della RAM del computer e 
ha una capacità doppia a 
quella del microdrive. 
Inoltre il sistema operati¬ 
vo del Discovery inter¬ 
preta tutti i comandi usa¬ 
ti per il microdrive. 

Ma l’unità a disco non è 
la sola caratteristica di 
questo vero gioiello. 

Il Discovery comprende 
infatti un’interfaccia per 
il joystick programmata 
secondo la famosa Kemp- 
ston e quindi compatibile 
con i numerosi videogio¬ 
chi che hanno questa op¬ 
zione. 

Connettori 

Sul lato destro della Di¬ 


scovery c’è un connetto¬ 
re diretto che permette di 
collegare altre periferi¬ 
che addizionali. 

Inoltre grazie ad un con¬ 
nettore a 26 poli è possi¬ 
bile collegare qualsiasi 
stampante con interfac¬ 
cia centronics/parallela. 
Sul retro trovate una pre¬ 
sa fono che permette il 
collegamento con un mo¬ 
nitor video monocromati¬ 
co o in bianco nero. Que¬ 
sta può essere usata come 
alternativa alla normale 
connessione al televiso¬ 
re. 

Altra novità è la presenza 
di un alimentatore auto¬ 
nomo incorporato che ali¬ 
menta oltre il sistema an¬ 
che il computer rendendo 
così inutile l’alimentato¬ 
re originale. 

Il Discovery viene impor¬ 
tato in Italia dal Bit Shop 
Primavera di via Farini di 
Milano e costerà meno di 
600.000 lire. 
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- NOTIZIE 

VIDEOATLETI AL MARE PER IL 
CAMPIONATO ITALIANO 



il Primo Campionato Ita¬ 
liano di videogiochi è ar¬ 
rivato alla fase conclusi¬ 
va. 

Dal 2 al 6 luglio si svolge¬ 
rà ad Ustica, nel corso del 
Festival del Software la 
finalissima del Primo 
Campionato Italiano di 
Videoatletica. 

I quindici migliori gioca¬ 
tori italiani selezionati 
attraverso le varie tappe 
in tutta Italia si fronteg- 
geranno su cinque giochi 
scelti dagli esperti del- 
l’AIVA (associazione ita¬ 
liana video atleti) tra le 
novità più interessanti 
del momento. 

Tra il mare e il sole del¬ 
l’isola siciliana si svolge¬ 
ranno le gare che, oltre a 
laureare il campione ita¬ 


liano, daranno vita alla 
prima squadra azzurra di 
videoatleti. 

Sarà questa squadra di 
cinque elementi che rap¬ 
presenterà l’Italia alle 


“Videogame Olympic”: il 
primo incontro interna¬ 
zionale in cui i videoaz¬ 
zurri affronterano for¬ 
mazioni analoghe stra¬ 
niere. 


100.000 SPECTRUM PARLANO RUSSO 


L’unione Sovietica secon¬ 
do il suo nuovo piano 
quinquennale adotterà 


per le scuole un milione 
di micro computer. 

La casa inglese Memotech 



ha già realizzato una ta¬ 
stiera in cirillico e ora do¬ 
po l’elezione di Gorba- 
chev a capo del Cremlino, 
i dirigenti della casa in¬ 
glese si sono affrettati ad 
incontrare i responsabili 
sovietici. 

Ma anche Acorn e Sin¬ 
clair non disperano di 
varcare la cortina con i 
propri prodotti anche se 
qualcosa è già successo; 
secondo dati non ufficiali 
100.000 Spectrum sono 
già stati importati nei 
paesi dell’Est. 
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BODY 

WORKS, 

ALLA 

SCOPERTA 
DEL NOSTRO 
CORPO CON 
LO SPECTRUM 

Si chiama Body Works ed 
è il primo programma me¬ 
dico per computer che vi 
guida in un viaggio alla 
scoperta del corpo uma¬ 
no. 


-NOTIZIE- 

I realizzatori sono il Dr. 
David Jeffery affiancato 
dal Dr. Jonathan Miller 
curatore della serie tele¬ 
visiva inglese “Body in 
Question” e del libro di 
successo “The Human bo¬ 
dy”, e l’esperto di compu¬ 
ter grafie John Came- 
ron. 

Sono ben sei i programmi 
che, grazie a 40 schermi 
vi illustrano la struttura 
cellulare, l’apparato dige¬ 
stivo, il sistema nervoso, 
la respirazione, i muscoli 
e la circolazione. 


L’ultimo programma è un 
vero test di quanto impa¬ 
rato, perché vi dà la pos¬ 
sibilità di controllare tut¬ 
te le funzioni fisiologiche 
di un maratoneta duran¬ 
te lo sforzo. 

Una dettagliata tavola a 
colori del corpo umano 
più un libretto illustrati¬ 
vo in inglese completano 
la confezione di Body 
Works, un modo nuovo di 
avvicinarsi all’apprendi¬ 
mento scientifico con l’a¬ 
iuto del vostro Spec- 
trum. 


MOSTRA-CONCORSO DI VIDEOGIOCHI 
DI SETTEMBRE 
AL SIM 


Un’interessante iniziati¬ 
va per tutti gli appassio¬ 
nati programmatori di 
home e Personal compu¬ 
ter si svolgerà al Sim-Hi 
fi-Ives in programma a 
Milano dal 5 al 9 settem¬ 
bre. 

L’Aica, associazione ita¬ 
liana per l’informatica e 
il calcolo automatico, or¬ 
ganizza infatti la terza 
edizione di Computer Ply, 
una mostra concorso de¬ 
dicata ai videogiochi. 

Per tutta la durata della 
manifestazione sarà alle¬ 
stita una mostra dei mi¬ 
gliori videogiochi in cir¬ 
colazione mentre con¬ 
temporaneamente si 
svolgerà un vero e pro¬ 
prio concorso per il sof¬ 
tware da gioco italiano. 

I programmatori dilet¬ 



tanti, semi-professionisti 
o i semplici appassionati 
avranno l’opportunità di 
mostrare le proprie capa¬ 
cità davanti ad un pubbli¬ 
co qualificato composto 
anche da esperti del set¬ 
tore e in cerca di nuove 
idee. 

I temi da affrontare sono 
stati scelti nell’intera 


gamma dei giochi per 
computer: Video games, 
simulazione, avventure, 
educativi, applicazione ' 
grafiche, applicazioni 
musicali e applicazioni 
innovative. 

Per iscriversi al concorso 
bisogna inviare il gioco 
(su cassetta o disco) com¬ 
pleto di descrizione del 
computer utilizzato e del¬ 
le necessarie istruzioni 
alla segreteria del Sim in 
via Domenichino 11, 
20149 Milano (tei. 01- 
4815541) entro il 30 giu¬ 
gno. 

Una qualificata giuria se¬ 
lezionerà i lavori più me¬ 
ritevoli che durante il 
Sim-Hi Fi-Ives verranno 
sottoposti all’attenzione 
degli spettatori, votati e 
premiati. 
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AUTOMANIA 


Abilità, colpo d’occhio e precisione per aiutare 
Wally, sveglio dopo gli incubi di Pyjamarama, a 
lavorare ad una catena di montaggio di 
automobili: un classico arcade game. 
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Siete riusciti a svegliare 
lo sventurato Wally Week 
dal suo drammatico incu¬ 
bo in Pyjamarama, il gio¬ 
co presentato sullo scor¬ 
so numero di Oro Soft? 
Spero di si perché ora il 
simpatico Wally diventa 
un “manie mechanic” 
cioè un operaio diligente, 
e deve avventurarsi in 
una sconclusionata fab¬ 
brica per costruire auto¬ 
mobili. 

Negli ultimi anni i robots 
hanno garantito il rilan¬ 
cio della produzione delle 
case automobilistiche 
permettendo di sostitui¬ 
re gli operai alla catena di 
montaggio, ma sfortuna¬ 
tamente per Wally, in 
questa fabbrica i robots 
fanno di tutto per ostaco¬ 
largli il lavoro. 

La Mikro-Gen, casa pro¬ 
duttrice di tutte le avven¬ 
ture di Wally che Oro Soft 
vi presenta in esclusiva 
per l’Italia, ha voluto rea¬ 
lizzare questa volta un 
classico arcade senza 
stanze da esplorare e sen¬ 
za obiettivi particolari da 
raggiungere. 

Come in un videogioco da 
bar, in Automania sono 
quindi richieste abilità, 
colpo d’occhio e precisio¬ 
ne per ottenere il punteg¬ 
gio più alto. 

La Mikro-Gen è una sof¬ 
tware house inglese fon¬ 
data nel novembre del 
1981 da Mike Meek e An¬ 
drew Lawrie. 

Fu proprio Andrew che 
scrisse il Sinclair Chess, 


programma per gli scac¬ 
chi che ebbe un grande 
successo. Ma il grosso sal¬ 
to di qualità la compa¬ 
gnia lo fece l’anno scorso 
quanto aumentò il suo 
staff da 6 a 16 persone. 
Proprio in quel periodo 
nacquero le avventure 
del nostro nuovo eroe. 

Il prossimo mese sarà in¬ 
fatti la volta di “Everyo- 
ne’s a Wally”, terza fatica 
di Wally Week. Altro gio¬ 
co e altra situazione dove 
tra l’altro avrete l’oppor¬ 
tunità di conoscere la 
sconclusionata e simpati¬ 
ca famiglia di Wally. 


IL GIOCO 

Obiettivo di Wally è dun¬ 
que quello di assemblare 
un'automobile. 

Il gioco ha una introdu¬ 
zione stile titoli cinema 
con indicati i protagoni¬ 
sti e tutta l’equipe, dal 
dentista all’arredatore, 
che ha contribuito alla 
realizzazione di questo 
gioco. La musica è quella 
delle famose comiche di 
Stanlio e Olio. 
Naturalmente i nomi so¬ 
no inventati e divertente 
è tentare di interpretare 
i doppi sensi. Per esempio 
provate a leggere bene il 
nome di una delle ruote e 
riconoscerete una nota 
ditta italiana di pneuma¬ 
tici. 

La linea di montaggio do¬ 
ve lavora Wally è un po’ 
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disordinata; portiere, 
ruote, cofani e tettucci 
indispensabili per com¬ 
pletare l’automobile, so¬ 
no sparsi un po’ dapper¬ 
tutto. 

Gli schermi, o meglio, le 
stanze, sono due. 

Wally inizia il suo lavoro 
in quella principale com¬ 
posta da due piani con tre 
piattaforme, ognuna rag¬ 
giungibile con una scala. 
Le piattaforme comuni¬ 
cano tra di loro grazie a 
dei pavimenti semovibili 
che continuano ad allun¬ 
garsi e ad accorciarsi. 

In corrispondenza di ogni 
piano ci sono i sei pezzi 
dell’auto da raccogliere. 
Se pensate che la difficol¬ 
tà di Automania sia solo 
salire le scale, evitare di 
cadere nel vuoto saltando 


dal pavimento semovente 
alla piattaforma, vi sba¬ 
gliate di grosso. 

Oliatori e taniche di ben¬ 
zina sparse sui vari pi¬ 
ani, pneumatici e robots 
che camminano, vi obbli¬ 
gano ad una vera e pro¬ 
pria corsa ad ostacoli. 
Toccare uno di questi og¬ 
getti significa la vostra 
fine. 

Raccolto uno dei pezzi 
dell’auto, scendete dalla 
piattaforma e, evitando 
le ruote assassine, dirige¬ 
tevi verso la porta a sini¬ 
stra. Attraversatela e vi 
troverete nella seconda 
stanza con al centro una 
piattaforma pneumatica 
con una “Due cavalli” 
mezza smontata. L’auto¬ 
mobile può essere rag¬ 
giunta grazie a due scale. 
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Questa volta non ci sono 
oggetti fissi sulle piatta¬ 
forme ma, oltre ai due so¬ 
liti pneumatici e al robot, 
cadono dal soffitto delle 
ventole. Evitando tutti 
questi mortali oggetti in 
movimento dovete rag¬ 
giungere la scocca del¬ 
l’auto e disporre il pezzo 
raccolto. 

I pezzi si raccolgono e si 
abbandonano semplice- 
mente passandoci sopra. 
Naturalmente questa 
operazione non può esse¬ 
re realizzata con tran¬ 
quillità. In alto a sinistra 
una barra segna tempo vi 
impone un limite di un 
minuto e mezzo per rac¬ 
cogliere e lasciare al po¬ 
sto giusto la parte di 
automobile. 

Una volta completata la 
macchina appare una 
scritta con i complimen¬ 
ti, la piattaforma scende 
e l’auto si dirige verso 
l’uscita. 

Pochi secondi per respi¬ 
rare ed eccoci alle prese 
con il secondo modello, 
una Mini Minor rossa: so¬ 
no ben dieci le auto da as¬ 
semblare. 

Nei livelli successivi va¬ 
riano la disposizione del¬ 
le piattaforme del primo 
schermo e il tipo di ogget¬ 
to che cade dal soffitto 
nel secondo. Lo spirito 
del gioco naturalmente 
non cambia: corsa ad 
ostacoli, raccolta di og¬ 
getti, evitare quelli mor¬ 
tali e completare l’auto. 


PUNTEGGIO 

Ogni pezzo raccolto vale 
100 punti. Altri punti li 
guadagnate quando lo de¬ 
positate sull’auto. Il valo¬ 
re sarà direttamente pro¬ 
porzionale alla lunghezza 
della barra segnatempo 
partendo da un massimo 
di 200. Questi punti sono 
riferiti al primo livello, 
quelli successivi hanno 
dei sensibili aumenti. 
Iniziate ogni gioco con 
tre vite mentre ne guada¬ 
gnate una ogni macchina 
assemblata. 

I COMANDI 

Un comodo e chiaro 
menù iniziale vi permet¬ 
te di selezionare alcune 
opzioni. 

La più importante natu¬ 
ralmente è quella defini¬ 
re per il modo per guidare 
Wally nel suo lavoro. Po¬ 
tete scegliere tra l’uso del 
joystick in porta 1 oppu¬ 
re la possibilità di selezio¬ 
nare i tasti nel modo più 
comodo. 

Wally si muove in cinque 
direzioni: destra, sini¬ 
stra, salita, discesa e sal¬ 
to. 

Gli altri tre tasti del me¬ 
nu principale vi permet¬ 
tono di attivare o disatti¬ 
vare la musica di accom¬ 
pagnamento oppure di fa¬ 
re partire il demo con lo 
scorrere dei titoli e una 
rapida carenata di tutti e 
dieci i tipi di auto da as¬ 
semblare. 
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AI termine di ogni gioco 
appare lo schermo con i 
migliori risultati. Una 
curiosità: lo score code 
che appare quando vi vie¬ 
ne chiesto di introdurre 
il vostro nome è un codi¬ 
ce utilizzato per verifica- 
re il punteggio realizza¬ 
to. 


CONSIGLI 

Uno dei requisiti fonda- 
mentali richiesto in 
Automania è la concen¬ 
trazione. La minima di¬ 
strazione può risultarvi 
fatale. 

Come in una gara di trial 
studiatevi attentamente 
il percorso, cioè lo scher¬ 
mo, magari durante il de¬ 
mo. Memorizzate attenta¬ 
mente il movimento delle 
piattaforme retrattili. 
Controllate fino a che 
punto si ritirano e se ave¬ 
te cosi lo spazio per rima¬ 
nere in piedi in attesa del 
momento propizio per il 
salto. 

Non è importante la suc¬ 
cessione in cui raccoglie¬ 
te i pezzi anche se convie¬ 
ne prendere prima quelli 
più vicini. Se volete evi¬ 
tare di raccoglierne uno 
saltate quando ci passate 
sopra. 

Molto difficile è saltare 
su una piattaforma mobi¬ 
le con davanti una tani¬ 
ca. Prendete coraggio e 
scegliete il tempo giusto 
per evitare di saltare nel 
vuoto. 


Fate attenzione a quando 
dovete fare l’operazione 
contraria perché se salta¬ 
te troppo lungo rischiate 
di atterrare sull’oliatore 
o la tanica scivolando 
così a terra. 

Quando siete sul pavi¬ 
mento ricordatevi che il 
robot blu si muove più 
veloce delle ruote rosse. 
Evitateli saltando al mo¬ 
mento giusto, né troppo 
presto né troppo tardi e 
solo quando vi vengono 
incontro. Qualche volta, 
proprio per la differente 
velocità, può capitare che 
robot e ruota si incroci¬ 
no. In questo caso dovete 
scegliere tra il rifugiarvi 
su una scala oppure sal¬ 
tarli se vi vengono tutti e 
due incontro perfetta¬ 
mente sovrapposti. 

Wally si muove più velo¬ 
cemente quando salta e 
questo vi può essere utile 
se deve scappare dal ro¬ 
bot. Fate attenzione per¬ 
ché saltando potete ter¬ 
minare contro una ruota 
o sbattere contro uno de¬ 
gli oggetti che cadono dal 
soffitto. 

A proposito, fate atten¬ 
zione a non rimanere 
bloccati da questi male¬ 
detti oggetti. La loro tra¬ 
iettoria è lenta e verticale 
e rischia di inchiodarvi 
in qualche angolo o men¬ 
tre salite sulle scale, sen¬ 
za possibilità di salvez¬ 
za. 

Nella stanza con l’auto se 
vedete che oggetti e ruote 
sono troppo vicini, torna¬ 


te nello schermo princi¬ 
pale. In questo modo ruo¬ 
te e robot ritornano al lo¬ 
ro punto di partenza. 
Non siate troppo precipi¬ 
tosi nel passare dal primo 
al secondo schermo: po¬ 
treste avere la brutta sor¬ 
presa di sbattere subito 
contro uno degli oggetti. 
Quando dovete lasciare 
un pezzo d’auto come una 
portiera o il tettuccio sul¬ 
la scocca, trovate il posto 
giusto dove saltare. Solo 
in questo modo riuscirete 
ad abbandonarlo. 


ISTRUZIONI PER IL 
CARICAMENTO 

Introducete la cassetta 
nel registratore con il na¬ 
stro all’inizio. Quindi 
scrivete: 

LO AD premete RE¬ 

TURN e il tasto PLAY del 
registratore. 

Se avete dei problemi nel 
caricamento controllate 
il volume, l’allineamento 
della testina del registra¬ 
tore e per ultimo la velo¬ 
cità. 
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Oggi II Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 

Video Basic 

per imparare non solo il Basic. 


Oggi è davvero facile imparare il 
Basic Con Video Basic il corso su 
cassetta che ti permette di 
programmare subito il tuo computer. 
E facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


fatica, presto e bene, 
impari o conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Il corso è composto da: 

20 fascicoli + 

20 cassette + 

5 splendidi raccoglitori 


(QuattordldnaH) 


■ ■ Ritorna in edicola ■ ■ 

VDEO BASIC 

Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 
VIC 20 e Spectrum 

200.000 copie vendute 

j.i j.n. —»— .ji.t_ 


del 1 ° fascicolo della prima edizione 




o\° 


09 "' 



Un’dtra grande idea firmata 


GRUPPO EDITORIALE JACKSON 

Mlano-San FrcrK3sco4xxidr>Madrid 







Guida all’input Spectrum 


Per evitare errori nella 
riproduzione dei listati, abbiamo 
sostituito i simboli grafici tipici 
dello Spectrum con alcuni codici. Per 
battere i listati che pubblichiamo 
occorre dunque ricordarsi quanto 
scriviamo qui sotto. 


I caratteri grafici compaiono nei listati in 
forma abbreviata, racchiusi in parentesi graffe. 
Il primo carattere all’interno della 
parentesi rappresenta, se si tratta di un 
numero, le volte che devono essere battuti 
simboli dello stesso tipo; se omesso tale numero 
è inteso uguale ad uno. 

Il tipo di carattere grafico è invece presentato 
nel seguente modo: gx, con x numero 
compreso tra 1 e 8, indica i caratteri grafici 
predefiniti ottenuti premendo i corrispondenti 
tasti, gsx, per quelli disponibili premendo 
contemporaneamente CAPS SHIFT. 

I caratteri grafici definibili (caratteri da A ad U 
in modo grafico) sono stampati in maiuscolo. 
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Istogrammi 

tridimensionali 


90 CLS : PRINT FLASH 1 ;AT 9,5;"FERMARE I 
L REGISTRATORE": PAUSE 200 
99 BORDER 0: PAPER 0: CLS 
100 INK 2: PLOT 39,24 
110 DRAW 0,119 

112 LET u=PEEK 23675+256*PEEK 23676 

114 DATA 255,127,63,31,16,7,3,1,128,192,2 
24,240,248,252,264,255 

115 DATA 255,255,255,223,207,199,195,193, 
192,96,48,24,12,6,3,1.192,192,192,192,192, 
192 , 192,192 

116 FOR a=u TO u+39 

118 READ d: POKE a,d: NEXT a 
120 FOR a=5 TO 7 

122 PRINT AT l4+a,a; INK 0; PAPER 1;CHR$ 
145;" ";CHR$ 144 

124 NEXT a 

126 PLOT 32,23: DRAW 7,0 
128 FOR a=31 TO 146 STEP 8 
130 PLOT 32,a: DRAW 192,0 
140 NEXT a 

150 FOR a=23 TO 146 STEP 40 
160 PLOT 24,a: DRAW 8,0 
180 INK 7 

200 REM Dati 

210 REM a$ max 32 caratteri 

220 LET a$="Vendite programmi SOFTCORP in 

M$" 

222 LET j$*"Profes." 

224 LET k$="Scient." 

226 LET w$="Giochi" 

228 REM j$ k$ w$ max 8 caratt. 

230 LET r=15 

240 REM r=valore massimo scala 
250 REM valori per r : 

260 REM 6 15 30 60 150 300 600 
270 DIM d(4) 

272 DIM e(4) 

274 DIM f(4) 

280 REM vai. d e f(1)—(4) tra 


Un sistema 
semplice per 
realizzare 
istogrammi a tre 
dimensioni sul 
vostro schermo, 
con la 
possibilità 
perfino di 
realizzare 
cilindri. 


Gli istogrammi sono so¬ 
stanzialmente la rappre¬ 
sentazione grafica a due 
dimensioni di un certo 
dato. Noi possiamo cioè 
rappresentare la dimen¬ 
sione di un dato sia sotto 
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Istogrammi 

tridimensionali 


forma di valore numerico 
che sotto forma grafica: 
in sostanza delle barre la 
cui area rappresenta il 
valore stesso. 

Nel programma che vi 
presentiamo invece di 
utilizzare la consueta 
rappresentazione a due 
dimensioni abbiamo in- 


290 

REM 

0 e il 

valore max "r 

300 

LET 

d(1 ) = 4 


310 

LET 

d(2)-6 


320 

LET 

d(3)-7 


330 

LET 

d(4 ) = 12 


345 

LET 

e(1 )=2 


350 

LET 

e(2)=4 


355 

LET 

e(3)=6 


360 

LET 

e C 4 ) -10 


370 

LET 

f(1)-1 


372 

LET 

f(2)=2 


374 

LET 

f(3)-5 


376 

LET 

f(4)=9 


380 

DIM 

c$(4,3) 


390 

REM 

c$1-4 max 3 caratteri 

400 

LET 

c$(1 

1 79" 

410 

LET 

e$(2)=" 1 

■80" 

420 

LET 

c$(3)-" 1 

'81" 

430 

LET 

c$(4)=" 1 

'82" 

499 

REM 



500 

REM 

Programma 


502 IF LEN j$>8 THEN LET j$=j$(1 TO 8) 

504 IF LEN k$>8 THEN LET k$=k$(1 TO 8) 

506 IF LEN w$>8 THEN LET w$=w$(1 TO 8) 

510 IF LEN a$>32 THEN LET a$=a$(1 TO 32) 

520 PRINT AT 0,0; INVERSE 1;a$ 

524 INK 7: PRINT AT 19,2;"0" 

530 PRINT AT 4,3-LEN STRI r ; r 

533 PRINT AT 9,3-LEN STR$ (r/3*2);(r/3*2) 

535 PRINT AT 14,3-LEN STR$ (r/3);(r/3) 

542 PRINT AT 2,0; INK 4 ;"{2gs8}";j$; INK 
5;AT 2,11 ;"{2gs8}";k$; INK 6;AT 2,22;"{2gs 
8}";w$ 

550 FOR a-1 TO 4 

560 IF d(a)<0 OR d(a)>r THEN GO TO 2000 

562 IF e(a)<0 OR e(a)>r THEN GO TO 2000 

564 IF f(a)<0 OR f(a)>r THEN GO TO 2000 

570 NEXT a 

580 FOR c=7 TO 22 STEP 5 
590 LET k»(c-2)/5 

600 IF d(k)/(r/15)>-1 THEN PRINT AT 19,c; 
INK 4; PAPER 1;CHR$ 147;"{3gs8)” 

610 FOR 1=18 TO 19-INT (d(k)/(r/15)) STEP 

-1 

620 PRINT AT 1,c; INK 4;CHR$ 148;"{3gs8)" 
630 NEXT 1 

632 IF d(k)/(r/15)>=1 THEN PRINT AT 1+1,c 
; INK 4;CHR$ 146;"I2gs8}";CHR$ 145 
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Istogrammi 

tridimensionali 


634 NEXX c 

636 FOR c=7 TO 22 STEP 6 
638 LET k=(c-2 )/5 

640 IF e(k)/(r/15)>=1 THEN PRINT AT 20,c+ 
1; INK 5; PAPER 1;CHR$ 147;"{3gs8}" 

644 FOR 1 = 19 TO 20-INT (e(k)/(r/16)) STEP 
-1 

650 PRINT AT l,c+1; INK 5:CHR$ 146;"{3gs8 

J” 

660 NEXT 1 

662 IF e(k)/(r/15)>=1 THEN PRINT AT 1+1,c 
+ 1; INK 5;CHR$ 146 ;"{2gs8)";CHR$ 145 
664 NEXT c 

666 FOR o=7 TO 22 STEP 5 
668 LET k=(c-2)/5 

670 IF f(k)/(r/15)>=1 THEN PRINT AT 21,c+ 
2; INK 6; PAPER 1;CHR$ 147;"{3gs8i" 

677 FOR 1=20 TO 21-INT (f(k)/(r/15)) STEP 
- 1 - 

680 PRINT AT l,c+2; INK 6;CHR$ 148;"t3gs8 
i" 

690 NEXT 1 

692 IF f(k)/(r/15)>=1 THEN PRINT AT 1+1,c 
+ 2; INK 6 ;CHR$ 146 ;"{2gs8}";CHR$ 145 
695 PRINT AT 21,0+3; INK 0; PAPER 6;c$(k) 

699 NEXT c 
1000 STOP 

2000 PRINT AT 5,5;" VALORI ERRATI " 


10 REM Business Grafica 
20 REM CILINDRI 3 D 

22 REM--- 

25 REM Autore Gaetano Marano 

26 REM - 

27 REM ? Gruppo Edit. Jackson 

30 REM - 

31 CLS : PRINT FLASH 1 ;AT 9,5;"FERMARE I 
L REGISTRATORE": PAUSE 200 

33 BORDER 0: PAPER 0: INK 7: CLS 
44 LET rmi=11 : LET rma = 23 
77 FOR a=l6 TO 19 
88 FOR b=0 TO 31 

99 PRINT AT a,b; PAPER 1;" NEXT b: NE 
XT a 

100 REM Dati 

110 REM a$ max 64 caratteri 
120 LET a$="Proiezioni vendite Computers 
in Italia (pezzi xlO.OOO) " 


vece voluto impiegare 
una rappresentazione 
tridimensionale, più bel¬ 
la e realistica e in grado 
di rendere con maggiore 
vigore la dimensione 
stessa del dato desidera¬ 
to. 

Nel nostro programma 
dunque i dati inseriti nel¬ 
le variabili debbono esse¬ 
re arrotondati e non su¬ 
perare il valore massimo 
di “r". 

I blocchi degli istogram¬ 
mi sono verdi, azzurri e 
gialli e ad essi corrispon- 
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Istogrammi 

tridimensionali 


dono rispettivamente i 
dati delle variabili d(I)... 
(4),e(I)...(4),f(I)...(4) 
e gli argomen ti con ten u ti 
nelle stringhe j$, k$, 
w$. 

Cilindri 3D 

Un altro modo per rap¬ 
presentare dati sfruttan¬ 
do la stessa tecnica degli 
istogrammi è quello di 
utilizzare dei cilindri. 

Nel caso del programma 
che vi proponiamo però i 
cilindri tridimensionali 
possono essere soltanto 
quattro, naturalmente di 
diversa altezza e colore. 
L’altezza dei cilindri vie¬ 
ne definita inserendo i 
dati nelle variabili h ( I) 
... h (4). 

Tratto da: 

77 programmi per 
Spectmm 

di Oaetano Marano, 

O.E.J., 

p. 142, 

L. 24.000 


122 DIM h(4) 

130 REM h(1 )--h(4) max 100 
140 LET h(1)=24 
130 LET h(2)=40 
160 LET nC3) = 64 
170 LET h(4)=88 

177 REM u$ 1-4 max 4 caratteri 
180. DIM u$(4,4) 

190 LET u$(1)="1983" 

200 LET u$(2)-"1984" 

210 LET u$(3)="1985" 

220 LET u$(4)="1986" 

230 REM n$ 1-4 max 5 numeri 
240 DIM n$(4,5) 

250 LET n$(1)="24" 

260 LET n$ 2 ="40" 

270 LET n$(3)="64" 

280 LET n$(4)="88" 

290 LET i$="56744562" 

500 REM Programma 

510 PRINT AT 0,0; INK 7; INVERSE 1 ;;a$ 

520 FOR c=0 TO 3 

530 PRINT AT 20,c*7+3; INK 3;u$(c+1) 

540 NEXT c 
550 FOR e=0 TO 3 

555 IF h(c+1 HO OR h(c+1 )>100 THEN GO TO 
2000 

560 LET x=40+e*56 

570 LET y=1 36 -(100-h(c+1)) 

580 LET h=h(c+1 ) 

588 LET i=VAL i$(c+1 ) 

590 GO SUB 1000 
600 NEXT c 
610 FOR o=0 TO 3 

620 IF h(c+1)>93 THEN PRINT AT 2,2+c*7; I 
NK VAL i$(c+5);n$(c+1 ) 

630 IF h(c+1 )<94 THEN PRINT AT 21-(h(c+1) 
/8+7) ,2+c*7; INK VAL i$(c+5J;n$(c+1 ) 

640 NEXT c 
999 STOP 

1000 FOR p=0 TO 360 STEP 2 
1030 LET rd=p*PI/180 
1040 LET a=rma*(COS rd)+x 
1050 LET b=rmi*(SIN rd)+y 
1060 PLOT INK i;a,b 
1070 IF p>=l80 THEN GO TO 1090 
1080 NEXT p: RETURN 
1090 DRAW INK I ; 0,-(h-1 ) 

1100 GO TO 1080 

2000 PRINT AT 5,5;" VALORI ERRATI " 
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1 RAND0MI2E 

2 PRINT AT 10,6 ;"UN ISTANTE SOLTANTO" 

3 DEF FN AO-INT (2+RND*b) 

5 GO SUB 9000 

6 LET mn1=10: LET mn2-1P 

7 LET g$="Il giocatore " 

IO PAPER b: BORDER b: CLS 

20 PRINT AT 9,1b;"{A)(B)": LET g-A: GO S 
UB 90 

30 PRINT AT 11 ,11 ;”3 TOPOLINI": LET g-2: 
GO SUB 90 

AO PRINT AT 13»13;"CIECHI": LET g=0: GO 
SUB 90 

bO PAUSE 30 

70 PRINT AT 19,0; FLASH l;"premi i p 
er le istruzioni -ogni ait-ro tasto per gi 
ocare " 

7b BEEP .1,10 
70 PAUSE 0 

00 IF INKE7$-"i" OR INKEY$-"i" THEN GO S 
UB ObOO 

8b GO TO 100 

90 BEEP .0A,g+3: BEEP .0A,g+6: BEEP .OA, 
g+3: BEEP .2,g 
9b RETURN 
100 GO TO 700 

102 1NK 0: PAPER 0: BORDER 0: CLS 
lOb FOR f=0 TO 31 

110 PRINT INK 7; PAPER 2; BRIGHT 1;AT i,f 
;"(R}";AT 2ì,f;"(R)"; PAPER 0;AT 0,f;" " 
llb BEEP .01,(20-f)/3: NEXT f 
120 FOR f=2 TO 20 

125 PRINT INK 7; PAPER 2; BRIGHT 1 ;AT f,0 
;"iR)";AT f,b;”{R)";AT f,31 ;"{R}"; INK 6; 
PAPER 0;AT f,30;" " 

130 BEEP .01,f/3 
135 NEXT f 

1AO FOR f=3 TO 19 STEP A: PRINT AT f,b; P 
APER 0;" NEXT f 
Ibb PAUSE 50: GO SUB 90 

160 GO SUB 900 

161 BRIGHT 1 

I6b PRINT INK FN a();AT x,y;"{FÌ (G}";A 
T x+1,y(H)131){J)" - 

170 FOR f=1 TO 2 
175 GO SUB 900 

180 PRINT INK FN a();AT x,y;"{F) {G)";AT 
x+1,y (H) {1}{J}" 

195 NEXT f 
210 FOR f=1 TO 2 
215 GO SUB 900 

220 PRINT AT x,y; INK FN a();"{NJ{0}";AT 
x+1,y;"{2P}" 

2A0 NEXT f 
250 FOR f=1 TO 2 
255 GO SUB 900 

260 PRINT INK FN a();AT x,y;"{N){Q H 0)"; A 
T x+1,y;"(P) (P}" 


Tre topi 

Tre piccoli 
tipolini 
vistosamente 
colorati 
vengono 
costretti dai 
morsi della 
fame ad 
uscire dalla 
tana alla 
ricerca di un 
ambito 
pezzetto di 
formaggio. 


In questa ricerca gli ani¬ 
maletti sono ostacolati, 
oltre che da una ridda di 
suppellettili, poltrone e 
tavolini, anche da una lo¬ 
ro grave menomazione fi¬ 
sica: sono infatti irrime¬ 
diabilmente ciechi (e lo si 
vede!). 

Questa lotta per la vita 
(misera?!) è resa ancor 
più drammatica dal fatto 
che noi umani, oltre ad 
osservarli indifferenti, 
scomettiamo cinicamen¬ 
te sulla loro sorte. Infatti 
il gioco è riservato a due 
giocatori che in ogni 
manche possono sceglie¬ 
re un topino ciascuno, 
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Tre topi 


sul quale puntare parte 
dei propri capitali. Quan¬ 
do un topo raggiungerà il 
formaggio il concorrente 
che avrà avuto fortuna si 
vedrà attribuire una 
somma pari al doppio del¬ 
la posta, oltre alla posta 
stessa. La sfida si ripete¬ 
rà sino al momento in cui 
uno dei giocatori, a causa 
di scelte poco oculate, 
non sia completamente 
ridotto sul lastrico. 


273 NEXT f 

285 FOR f-1 TU XNT (2+3*RND> 

290 CO SUB 920 
295 PRINT INK FN a()jAT x,y;"{K)";AT x+1, 
y;" IMJ" 

319 NEXT f 

323 FOR f-1 TO INT (2+3*KND) 

330 GO SUB 920 

333 PRINT INK FN a();AT x,y;"{LÌ";AT x+1, 
y ; " {M} " 

330 NEXT f 

333 FOR f-1 TO INT (2+3*RND) 

360 GO SUB 920 

363 PRINT AT x,y; INK 4;"{S}”;AT x+1,y;"{ 
Ti”;AT x+2,y; INK FN a();"(U)" 

373 NEXT f 

380 PRINT AT 6,30; INK 6;"{N)";AT 11,30;" 
{Ni";AT 16,30;"{N J": BEEP .23,20: BEEP .1, 
23 

385 BRIGHT 0 

390 DIM x(3): DIM y(3) 

400 LET a$="(Ai{B}": LET b$="{C}{Di{E}": 
LET c$ = " lA}{B}" 

402 LET X=INT (3 + 17*RND) : LET y-INT (3 + 17 
*RND): LET Z-INT (3+17‘RND) 

405 IF ABS (x-yi<=4 OR ABS (x-z)<=4 OR AB 
S (y-z)<=4 THEN GO TO 402 
410 LET x(1)=x: LET x(2)=y: LET x(3)=Z: L 
ET y(1 )=2: LET y(2)-2: LET yC3)=2 
415 FOR f-1 TO 3 

420 PRINT INK f+3; BRIGHT 1;AT x(f),y(f); 

a$ 

425 NEXT f 

426 GO TO 432 

430 IF (xCi)-6 AND y(i)+2=30) OR U(i)-11 
AND y(i)+2-30) OR (X(i )-16 AND y(i3+2-30) 
THEN GO TO 500 
432 LET i-INT (RND»3+1) 

435 FOR f-1 TO INT (RND#4+1J 
443 IF RND>.85 THEN GO SUB 1000 

450 IF ATTR (x(i),y(i3+23-0 THEN LET y(i) 
=y(13 + 1 : PRINT INK i + 3; BRIGHT 1 ;AT x(i),y 
(i) — 1;a$;AT x(i),y(i)-1;b$;AT x(i),y(i)-1; 
c$; INK 0; BRIGHT 0;AT x(i),yUH;" "; IN 
K i + 3; BRIGHT 1 ;AT x(i),y(i);a$ 

451 IF {x(i 3=6 AND yÙ)+2=30) OR (x(i3-11 
AND y(i 3+2=303 OR (x(l)-16 AND y(l)+2=30) 
THEN GO TO 300 

452 IF ATTR (x(i),y(i)+2)<>0 THEN GO SUB 
1000 

453 NEXT f 
465 GO TO 430 
505 FOR f-1 TO 3 

310 BEEP .1,7: BEEP .2,12: BEEP .1,12: BE 
EP .1,11: BEEP .1,9: BEEP .1,11 : BEEP .2,1 
2: BEEP .1,7: BEEP .2,7 
515 NEXT f 

520 BEEP .1,5: BEEP .35,4: BEEP .35,2: BE 
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EP .4,0 

525 IF mi =i THEN LEI nml =mn1 +st1 *3: LET w 
$=g$+"1": GO TO 540 

530 IF m2=i THEN LET mn2=mn2+st2*3: LET w 
$*g$+"2" : GO TO 540 
535 LET w$="Nessuno di voi" 
b^O PAPEH 7: BORDEK 7: CLS : PRINT AT 10, 
3; "li topo N. " ; i ; " ("; INK i + 3;"(AHB]"; 
INK 0;") na trovato il formaggio. 

"ìw$j" ha vinto questa gara." 

545 iF mnl*0 OR mn2=0 THEN PAUSE 200: CLS 
: FOR f=20 TO -20 STEP -2: BEEP .02,f: BE 
EP .02,1+3: NEXT f: GO TO 600 
bbO PAUSE 200: GO TO 700 
60b PRINT AT 10,3;"LA PARTITA E' FINITA'" 

' g$ ; " 1 ila " ; mn 1 ; " punti""g$i"2 na ";mn2;" 
punti" 

630 PRINT AT 17,0;"Premi un tasto per gio 
care " 

6 35 PAUSE 0 
640 GO TO 6 

702 PAPEH V: C.I.K • PR1 UT UT A A. 1 IM U ■ "I 
Ai IB)" ; AT 7,8; INK b;"!A}(B}";AT 9,8; INK 

6;"fA){B}": INK 0: PRINT AT 5,10;"_1"; A 

T 7,10;"-2" ;AT 9,10;"_3" 

715 PRINT AT 14,3;g$;"l ha ";mn!;" punti" 

716 PRINT AT 16,3;g$;"2 ha ";mn2;" punti" 

720 INPUT "Giocatore 1 punta sul topo N. 
";m1 

722 GO SUB 800 

725 IF mi<1 OR m1>3 THEN BEEP 1,0: GO TO 
720 

740 INPUT "Giocatore 2 punta sul topo N. 
";m2 

742 GO SUB 800 

745 IF m2<1 OR m2>3 OR m2=m1 THEN BEEP 1, 
0: GO TO 740 

750 INPUT "Giocatore 1; puntata ";st1 
752 GO SUB 800 

755 IF stlbmnl OR stICO OR stIOINT (stl ) 
THEN BEEP 1,0: GO TO 750 
760 INPUT "Giocatore 2: puntata ";st2 
762 GO SUB 800 

765 IF st2>mn2 OR st2<0 OR st2<>INT (st2) 
THEN BEEP 1,0: GO TO 760 
770 LET mn1=mn1-st1: LET mn2=mn2-st2: PRI 
NT AT 14,21jmril;" punti ";AT 16,21;mn2;" 
punti 11 
775 GO SUB 800 
780 PAUSE 100 
790 GO TO 102 
800 BEEP .02,20 
805' RETURN 

900 LET X-INT (2+l6*RND) 

901 LET y=INT (8+l6*RND) 

905 IF ATTR Cx,y)<>0 OR ATTR (x+1,y)<>0 0 


Tre topi 


Inoltre è contemplata an¬ 
che la possibilità che en¬ 
trambi i giocatori perda¬ 
no le loro puntate: ciò si 
realizza quando più lesto 
a raggiungere il formag¬ 
gio è il terzo topo, quello 
su cui nessuno aveva 
scommesso. 

Oltre alla entusiasmante 
grafica, cui abbiamo già 
accennato, il programma 
consente un movimento 
veramente “alla cieca”, 
men tre una su brou tine si 
incarica di impedire una 
sgradevole sovrapposi¬ 
zione dei diversi simboli 
grafici. 
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Tre topi 


Commento al 
listato 

1-98 - Inizializzazione va¬ 
riabili e presentazione 
102-380 - Disegno e posi¬ 
zionamento dei muri, 
ostacoli (poltrone, tavoli 
ecc.) e formaggio attra¬ 
verso la chiamata di due 
subroutine alle linee 900- 
935. 

390-468 - Posizionamen¬ 
to dei topi e controllo del¬ 
le loro mosse 
808-680 - Identificazione 
del vincitore 
600-640 - Pagamenti del¬ 
le scommesse 


R ATTR (x,y*2)<>0 OR ATTR (xtl,y*2)<>0 OR 
ATTR (x,y*l)<>0 OR ATTR (x+1,y+1)<>0 THEN 
GO TO 900 

910 BEEP .01,0: BEEP .01,A: BEEP .01,6: B 
EEP .01,12 

919 RETURN 

920 LET x=INT (2+l6*RND) 

921 LET y=INT (8+19*RND) 

929 IF ATTR (x,y)<>0 OR ATTR (x+1,y)<>0 0 
R ATTR (x+2,y)<>0 OR ATTR (x,y*1)<>0 OR AT 
TR (x,y+2)<>0 THEN GO TO 920 

930 BEEP .01,0: BEEP .01,9: BEEP .01,6: B 
EEP .01,12 

935 RETURN 

1009 LET n-RND 

1010 IF n>.5 THEN LET 8-1: GO TO 1020 
1015 LET 3--1 

1020 IF ATTR (x(I)+S,y(i))«0 AND ATTR (x(i 
)+S,y(i)+1)-0 THEN LET x(i)=x(i)*3: PRINT 
AT X(i)-S,y(i); BRIGHT 0; INK 0;" ";AT x( 

I),y(i)i INK i + 3; BRIGHI 1 :"iA}{B}": IF RN 
D>.5 THEN GO TO 1020 

1030 IF ATTR (x( 1 ) ,y( i ) + 2X>0 AND ATTR (x( 
i)-1,yU))<>0 OR ATTR (x(i)-2,y(i)X>0 OR 
ATTR (x(i)-2,y(i)+1)<>0 OR ATTR (x(i)-1,y( 
i)+1)<>0 AND (ATTR (x(i) + 1,y(i))<>0 OR ATT 
R (x(i)+1 ,y(i)+l )<>0) THEN GO TO 1050 
1090 RETURN 

1052 IF ATTR (x(i),y(i)-i)-0 THEN LET y(i) 
-y(l)-1: PRINT INK i + 3; BRIGHT 1 ;AT x(i),y 
(i); 0 $;AT x(I),y(I);b$;AT x(i),y(i) + 1; BRI 
GHT 0; INK 0;" ";AT x(i),y(i); INK i+3; B 

RIGHT 1 ;a$: IF RND>.1 THEN GO TO 1050 
1060 RETURN 
8500 CLS 

Ò505 PRINT AT 0,!0;"ISTP.U2i'JNi""" UN Gl 
OCO PER 2 GIOCATORI" ""Tre topolini, che v 
ivono in una cavita' del muro, gareggiano 
pertrovare il formaggio. Pero'.essendo 
ciechi, possono contare solo sul loro olf 
atto (che NON e' poi cosi' sviluppato!) 
per trovare il cibo." 

8510 PRINT '"Scegliete il topino che riten 
etepiu' dotato e la somma che sietedispost 
i a puntare (solo numeri interi). Il gioc 
o termina se ungiocatore termina tutti i p 
unti." 

8519 PRINT '"Vincerete 2 volte la puntata 
(piu' la puntata) se scegliereteil vlnc 

itore." 

8315 PRINT INVERSE 1;" Premi un tasto pe 
r giocare " 

8520 PAUSE 0 
8525 RETURN 

9000 FOR i«1 TO 21 
9010 FOR n-0 TO 7 
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Tre topi 


9020 READ a 

9030 POKE USR CHR$ (i+193)+n,a 
9090 NEXT n 
9030 NEXT i 
9060 RETURN 

9070 DATA 32,71.193,139,127 1 13,29,12 

9080 DATA 0,190,209,232,232,255,16,29 

9090 DATA 2,9,8,9,13,0,1,0 

9100 DATA 0,120,252,259,255,253,129,193 

9110 DATA 0,192,192,128,192,290,0,128 

9120 DATA I,1,3,3,3,7,0,30 

9130 DATA 259,253,253,253,253,233,253,253 

9190 DATA 62,126,259,125,120,119,119,119 

9130 DATA 255,0,235,235,0,255,255,253 

9160 DATA 222,62,126,126,126,126,129,120 

9170 DATA 1,3,2,2,2,2,3,1 

9180 DATA 60,66,235,129,235,66,60,36 

9190 DATA 255,253,66,66,66,66,129,129 

9200 DATA 0,0,7,15,31,63,127,235 

9210 DATA 0,0,255,239,259,250,292,226 

9220 DATA 66,66,66,69,69,69,69,69 

9230 DATA 0,0,235,233,255,233,255,255 

9290 DATA 253,253,129,129,129,129,255,255 

9250 DATA 1 ,3,127,100,68,9,9,36 

9260 DATA 118,136,16,96,39,39,36,32 

9270 DATA 259,239,129,129,129,1211,56,0 


700-808 - Scommesse 
900-938 - Subroutine per 
il posizionamento degli 
ostacoli 

1000-1040 - Movimento 
1080-1060 - Retromar¬ 
cia 

8800-8828 - Istruzioni 
9000-9270 - Set grafico. 


Tratto da 
Super Bine 
n. 3 - ’84. 
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Renumber 

Il Renumber serve a rinumerare le linee di un 
programma come noi desideriamo in modo da 
ordinarle a partire da un numero voluto 
secondo un incremento stabilito. 


È inclusa la possibilità di 
rinumerare le linee a par¬ 
tire dalla prima fino ad 
una linea all’interno del 
programma. 

Il renumber qui proposto 
è scritto in Basic e si ap¬ 
poggia su due routine in 
L/M e sebbene scritto in 
Basic, tiene conto di tutti 
i GOTO, GOSUB, RESTORE, 
FUN, LIST, LLIST, LINE, 
eseguiti da un numero di 
linea. 

Il programma si divide in 
tre parti: 

- la prima esegue un test 
in base ai parametri spe¬ 
cificati nelle prime due li¬ 
nee (9950-9951) e cioè: 
init=nuovo numero di li¬ 
nea dal quale partire a ri¬ 
numerare, step = passo 
tra due linee, LF = linea 
alla quale si deve fermare 
la rinumerazione. 

Infatti l’ultima linea ri- 
numerata non deve avere 
numero superiore a quel¬ 
lo della linea successiva e 
comunque non superiore 
o uguale a 9950, punto da 
cui inizia il nostro pro¬ 
gramma di rinumerazio¬ 


ne. 

Questo risiede in memo¬ 
ria insieme a quello da ri¬ 


numerare quindi bisogna 
fare attenzione che que¬ 
st’ultimo non abbia linee 


9000 

REM 







9005 

REM 

HEX-CODE 

Caricatore 



9010 

REM 







9030 

CLEhR 

31999: RESTORE 

: GO 

SUB 

9992: L 

ET a. 

=Next: 

PRINT AT 

12,12 

; FLASH 1 

"Attend 

9035 

READ 

a$: BEEP 

.01,90 




9090 

IF a$ 


THEN RANDOMIZE 

0+9999*USR 

(Next+191) 







9095 

LET h 

=C0DE a$(1 )-98 




9050 

LET h 

=h-7* 

(a$(1)>"@" 

) 



9055 

LET 1 

“CODE 

a$(2)-98 




9060 

LET 1 

“1-7* 

(a$(2)>"@" 

) 



9065 

POKE 

a,l6*n+l: 

LET a 

=a+1 



9070 

GO TO 

9035 






9075 

REM 







9080 

REM 

DATI 

PROGRAMMA 

L.M. 



9085 

REM 







9090 

REM SUB FIND 

rOKEN 




9095 

REM 







9100 

DATA 

"2A", 

"00" 

,"5B", 

"18", 

"19" 

"2A" 

9105 

DATA 

"53", 

"5C " 

,"01", 

"DE", 

"26" 

"CD" 

9110 

DATA 

"80”, 

"19" 

,"DO", 

"CD", 

"9A" 

"16" 

9115 

DATA 

"ED", 

"53" 

,"02" , 

"5B", 

"CD" 

" BC " 

9120 

DATA 

"18", 

"7E" 

,"CD" , 

"B6", 

"18" 

"FE" 

9125 

DATA 

"EA" , 

"20" 

,"09", 

"2A", 

"02” 

"5B" 

9130 

DATA 

"23", 

"CD" 

,"6E" , 

"19", 

" 18" 

"DE" 

9135 

DATA 

"FÉ", 

"EC" 

,"28" , 

" 1F", 

"FE” 

"ED” 

9190 

DATA 

"28", 

" 1 B" 

,"FE" , 

"E5", 

"28" 

"17" 

9195 

DATA 

"FE", 

"F7" 

,"28", 

"13", 

"FE" 

"CA" 

9150 

DATA 

"28", 

"OF" 

,"FE" , 

"FO", 

"28" 

"OB" 

9155 

DATA 

"FF", 

" E i" 

,"28" , 

"07", 

"23" 

"FE" 
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9160 

DATA 

"OD","28","BD", 

"18","CC", 

"23" 

9165 

DATA 

"7E","FE","OD", 

"28","F3", 

,"2B" 

9170 

DATA 

"FE","3A","38", 

"0E" , "7E", 

, "FE" 

9175 

DATA 

"CA","28","E9", 

" 23 "," 22 ", 

,"00" 

9180 

DATA 

"5B","E5","1 8 ", 

"31","18", 

, "9A" 

9185 

DATA 

"E5","CD","BA", 

"18","CD", 

, "B6" 

9190 

DATA 

"18","22","00", 

"5B","20", 

,"23" 

9195 

DATA 

"FE","3A","28", 

"04","FE", 

, "OD" 

9200 

DATA 

"20","1B","2B", 

"2B" ,"7E", 

,"2B" 

9205 

DATA 

"bE","67","CD", 

"6E" , "19", 

,"20" 

9210 

DATA 

"10","01","DE", 

"26","CD", 

,"80" 

9215 

DATA 

"19","30","06", 

"CI","3A", 

,"04" 

9220 

DATA 

"5B","A7","20", 

"DO","C9" 

,"3E" 

9225 

DATA 

"02","32","04", 

"5B","CD" 

,"01" 

9230 

DATA 

"l6","E1","D9"i 

"E5","D9" 

,"23" 

9235 

DATA 

"22","5F","5C", 

"2A","02" 

, "5B" 

9240 

DATA 

"CD","6E","19", 

"16","23" 

, "CD" 

9245 

DATA 

"6E","18","D7", 

"D9","E1" 

,"D9" 

9250 

DATA 

"11","10","00", 

"21","90" 

, "1 A" 

9255 

DATA 

"CD","B5","03", 

< 

ÒÒ 


9260 

REM 




9265 

REM SUB ERASE LINE 


9270 

REM 




9275 

DATA 

"2A","65","5C", 

"ED","5B" 

,"63" 

9280 

DATA 

"5C","A7","ED", 

n^2",»7D” 

, "FE" 

9285 

DATA 

"0A","DA","8B", 

,"28","CD" 

,"99" 

9290 

DATA 

"1 E","03","C5", 

,"CD","99" 

, " 1 E" 

QPuK 

HATA 

unin 

il run il fi il urrvii 

O f b 1 f O U | 

ll^fll l| 

tiretti 
, CjL> 

9300 

DATA 

"E1","D5","CD", 

, "6E","19" 

, "DI " 

9305 

DATA 

"A7","ED","52", 

,"28","08" 

,"38" 

9310 

DATA 

"E2","EB","D5", 

, "CI","CD" 

,"E8" 

9315 

DATA 

"19","CF","16", 

11**11 



9320 REM 

9325 REM RENUMBER 

9330 REM 

9950 LET init=1000: LEI step=5 

9951 LET lf=9950: LET x=23635 

9952 LET nl=9950: LET Err=23300 

9953 LET c= 256: POKE Err.l 

9954 GO SUB 9992: LET z$="0000" 

9955 GO SUB 9987: RANDOMIZE USR Run 

9956 IF PEEK Err-2 THEN STOP 

9957 POKE Err,0: REM Reset Err 

9958 DEF FN a(x) = c*PEEK (x+1 ) + PEEK x 

9959 DEF FN b(y)=c*PEEK y+PEEK (y+1) 

9960 GO SUB 9993: GO SUB 9988 

9961 REM 

9962 REM 

9963 LET r$="": LET i=USR Run 

9964 IF i-nl THEN GO TO 9970 


Renumber 


che interferiscano con il 
renumber. 

In tal caso bisognerà ri¬ 
numerare manualmente 
queste poche linee. 

Per come lavora questo 
Renumber, è necessario 
che i comandi GOTO, GO- 
SUB, ecc., siano seguiti da 
numeri di linea a 4 digit 
(esempio: 0001, 0102, 
ecc.), e non da espressioni 
numeriche di vario gene¬ 
re (esempio: GOTO a * 10, 
GOSUB 1000 + a*x). 

Per testare tutto il pro¬ 
gramma, cercando ogni 
comando seguito da nu¬ 
mero di linea, si fa uso di 
una routine in linguag¬ 
gio macchina. Questo pro¬ 
grammino intercetta tut¬ 
ti questi comandi con¬ 
trollandone la “sintassi ” 
e se qualcosa va storto 
viene listata la linea con 
il cursore posto nel punto 
in cui bisogna apportare 
la correzione. 

La seconda fase, in L/M, 
fornisce l’indirizzo in 
RAM del comando inter¬ 
cettato che viene memo¬ 
rizzato nella variabile R$ 
insieme al suo numero di 
linea. 

La terza fase è la rinume¬ 
razione vera e propria: 
qui il Renumber inizia a 
controllare i vecchi nu- 
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Renumber 


meri di linea e in base alle 
informazioni contenute 
in RS, verifica se ad essi 
punta uno dei comandi 
(GOSUB, GOTO, RUN. ecc.) 
già visti. Se cosi è, si ag¬ 
giorna la destinazione e 
comunque si rinumera la 
linea. 

Il Renumber nella prima 
parte memorizza le due 
routine in L/M, di cui una 
si chiama Find Token, 
l’altra serve a cancellare 
le linee ed è qui introdot¬ 
ta per comodità. 

Infatti dopo il Run in me¬ 
moria rimane solo il Re¬ 
number, mentre il carica¬ 
tore del L/M viene cancel¬ 
lato automaticamente. 

A questo punto si può fa¬ 
re il Merge del program¬ 
ma da rinumerare e dare 
il comando Run 9950. Av¬ 
venuta la rinumerazione 
si può lasciare in memo¬ 
ria il programma rinume¬ 
rato eseguendo il coman¬ 
do GOTO 9999. 

Tratto da: 

“Spectmm Tool’’ 
di Roberto Rigo 
O.R.J. 
pag. 176 
L. 18.000 


9965 LET r$=r$+STR$ i 

9966 FOR l-i + 1' TO i + 4 

9967 LET r$=r$+CHR$ PEEK 1 

9968 NEXT 1 

9969 LET i=USR Next: GO TO 9964 

9970 GO SUB 9989 

9971 LET y=FN a(x) 

9972 LET linea=FN b(y) 

9973 IF linea>=lf THEN BEEP .2,30: LIST : 
STOP 

9974 LET lung=FN a(y+2) 

9975 FOR i=1 TO LEN r$ STEP 9 

9976 IF VAL r$(i+b TO i+8X>linea THEN GO 
TO 9979 

9977 IF linea<lf THEN GO SUB 9983 

9978 REM 

9979 NEXT i: IF linea>=lf THEN GO TO 9982 

9980 GO SUB 9991 

9981 POKE y.hi: POKE y+1,low: LET init=ini 
t+step 

9982 LET y=y+lung+4: GO TO 9972 

9983 LET a$=STR$ init: LET h=VAL r$(i TO i 

+ 4 ) * 

9984 LET z=4-LEN a$: IF z THEN LET a$=z$( 
TO z)+a$ 

9985 FOR j=1 TO 4: POKE n+j,CODE a$(j): NE 
XT j 

9986 GO SUB 9991: POKE h+8,low. POKE h+9,h 
i: RETURN 

9987 CLS : PRINT AT 11,13; FLASH 1;"Test": 
RETURN 

9988 PRINT AT 11,10; FLASH 1;"Fincl TOKEN": 
RETURN 

9989 PRINT AT 11,9; FLASH 1 ;"Rinumerazione 
": RETURN 

9990 REM 

9991 LET ni=INT (init/c): LET low=init-c*n 
i: RETURN 

9992 LET Next=32000: LET Run=Next+5: RETUR 
N 

9993 LET y=FN a(x): LET h=init 

9994 LET Iinea=FN b(y ) : LET y=y+FN a(y+2) + 
4 

9995 IF h>=lf OR h>=nl THEN RANDOMIZE USR 
10379 

9996 IF iinea>=lf OR iinea>=nl THEN RETURN 

9997 LET h=h+step: GO TO 9994 

9998 REM 

9999 RANDOMIZE 9950+9999*U3R (Next+191) 
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Disegnare grafici 

I seguenti programmi dimostrano l’abilità dello 
Spectrum nel disegnare e stendere grafici. 


1 BORDEK RND*ó: PAPER RND*6: 1NK y: CLS 
10 LET a-1: LEI b-1 
20 FOR t-1 TO 185 STEP 5 
30 CIRCLE t,a,b 
40 LET a=a*2: LET b=b+2 
50 NEXT t 


10 PLOT 0,0: DRAW 1NK RND*6;RND*255,RND*175 
20 PLOT 255,175: DRAW 1NK RND*6;-RND*255,-RND*175 
30 PLOT 255,0: DRAW 1NK HND*6;-RND*255,RND*175 
40 PLOT 0,175: DRAW 1NK RND*6;RND#255,-RND*175 
60 GO TU 10 


10 INPUT "Colore inchiostro? ";c 
20 BOHDER 7: PAPER 7: 1NK c: CLS 
30 INPUT "Scegli la densità' (1-25) ";b 
40 LET a-0 

50 PLOT 0^175: DRAW 0,-175 
60 PLOT OlO: DRAW 175,0 
70 FOR t-175 TO 0 STEP -b 
80 PLOT 0,t: DRAW a,-t 
90 LET a=a + b 
100 NEXT t 


10 LET X-RND*5: PAPER X: INK 9: BORDER X: CLS 

20 FOR d-1 TO 2 

30 FOR a-0 TO 50 STEP 10 

40 FOR x-0 TO 10 STEP .05 

50 1F d-1 THEN PLOT 20*x+a,40*SIN x+40+a 

60 1F d-2 THEN PLOT OVER 1;20*x*a,40*SIN x+40*a 

70 NEXT x: NEXT a: NEXT d 


10 INPUT INK 2;"lnserisci la funzione di x LINE a$ 
15 LET C»RND*5 : PAPER c: BORDER c: INK 9: CLS 
20 PLOT 0,175: DRAW 0,-175: DRAW 255,0 
30 FOR x-0 TO 255 
40 LET y-VAL a$ 

50 IF x>255 OR y>175 THEN GÓ TU 80 
60 PLOT x,y 
70 NEXT x 

80 PRINT AT 19,10; FLASH l;"Y-";a$ 


1 REM Disegna cerchi 

10 INPUT "Coordinata X ? ";x: INPUT "Coordinata Y ? ";y 

15 INPUT "Raggio minimo ? ";s 

20 INPUT "Raggio massimo ? ";f 

30 INPUT "Colore ? ";c 

40 FOR z-s TO f 

50 CIRCLE INK c;x,y,z 

60 NEXT z 

70 GO TO 10 




i 


II primo programma dise¬ 
gna una serie di cerchi 
usando la funzione “Cir- 
cle” fino a formare un co¬ 
no; è possibile cambiare 
la forma del cono sosti¬ 
tuendo i valori di t,aeb. 

Il secondo disegna righe 
di diversa lunghezza in 
vari colori, dai quattro 
angoli. 

Il terzo programma dise¬ 
gna un grafico con linee 
diagonali formando una 
simpatica figura. Potrete 
cambiare il colore e la 
densità della “maglia’’: al 
resto penserà lo Spec¬ 
trum. 

Il quarto programma di¬ 
segna una serie di curve 
sinusoidali poste su di un 
diagramma; successiva¬ 
mente le cancella una per 
una dal diagramma fino a 
lasciare vuoto il video. 
Può essere interessante 
cambiare i valori iniziali 
di 20 e 40 nelle linee nu¬ 
mero 40 e 50. 

Il quinto disegna qualsia¬ 
si grafico dopo aver inse¬ 
rito un’equazione nella 
riga 10. 

Il sesto programma dise¬ 
gna cerchi a diverse coor¬ 
dinate e con raggi interni 
ed esterni; potrete farli 
sovrapporre creando sim¬ 
patiche combinazioni. 
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QUALCOSA DI SUPER, DI INEDITO, 
DI IRRESISTIBILE 













RACCOLTA DI GIOCHI E DI UTILITIES PER 

SPECTRUM 











GRUPPO 

EDITORIALE 

JACKSON 


il prossimo, esclusivo JACKSON SOFT SERIE ORO 
per SPECTRUM 48K 


-Sxr- -- 


UNISCITI ALLA 


Il gioco è bello se c’è una sfidai 
I mega games JACKSON SOFT SERIE ORO, 
ancora sconosciuti al pubblico italiano, sono tuttora 
un rebus irrisolvibile. Comincia tul Inviaci il 
punteggio massimo raggiunto e (se vuoi) una tua 
fotografia. 

Se la tua performance con AUTOMANIA sarà stata 
davvero super, allora entrerai nella classifica di 
JACKSON SOFT SERIE ORO, pubblicata ogni 
quattordici giorni nella tua Rivista. 

Questa è una mega sfida, per mega campioni e 
^riserva mega sorprese. Aspettiamo! 


Per partecipare alla "sfida al campione" completa, ritaglia e invia 
questo tagliando in busta chiusa a: 

Gruppo Editoriale Jackson • Redazione di Jackson Soft 
Via Rosselllnl, 12 • 20124 Milano 

Dichiaro che con il gioco AUTOMANIA ho raggiunto il seguente 
punteggio (allagare Polaroid dalla vldaata) 

Nome __ 

Cognome _ t _ 

Via _ 

CAP_Città _ Prov _ 

Untaci, se vuol, una tua foto formato tessera t 

/ 
























